/*
        This example demonstrates how to find all sources in the scene when there 
        are several levels of models all with their own sources. Something to note
        is that only ActionSources are returned from the Model.
*/
NewScene( null, false );
// Set up the scene (details are at the bottom of this example)
var m1 = ActiveSceneRoot.AddModel(); m1.Name = "Larry"
var m2 = m1.AddModel(); m2.Name = "Curly"
var m3 = m2.AddModel(); m3.Name = "Moe"
CreateModelSource( ActiveSceneRoot );
CreateImageSource(m1);
CreateShapeAction(m2);
CreateAudioSource(m3);
// Start with the top level model (the Scene_Root) and the use the Models property
// to search recursively. Since all action sources are stored under the model, once
// we've visited each model, we will have found each source in the scene.
LogMessage( "RecursiveModelSearch results: " + RecursiveModelSearch(ActiveSceneRoot) );
// Expected Results:
// INFO : MODEL: Scene_Root
// INFO : MODEL: Larry
// INFO : MODEL: Curly
// INFO : MODEL: Moe
// INFO : MODEL: Biped_Skeleton_Generated
// INFO : RecursiveModelSearch results: Curly.Mixer.ShapeKey,Curly.Mixer.Shape_ClusterClip_source,Curly.Mixer.ShapeKey1,Curly.Mixer.ShapeKey2
function RecursiveModelSearch( in_model )
{
        LogMessage( "MODEL: " + in_model.FullName );
        // Start with the top-level model
        // Get a comma-delimited string of all sources found under this model
        var foundsrcs = ( in_model.Sources ) ? in_model.Sources.GetAsText() : "";
        // For every model nested within this scene, check it for sources
        var mdl = new Enumerator( in_model.Models(true) );
        for ( ; ! mdl.atEnd(); mdl.moveNext() ) {
                LogMessage( "MODEL: " + mdl.item().FullName );
                var results = in_model.Sources;
                if ( results ) {
                        foundsrcs += "," + mdl.item().Sources.GetAsText();
                }
        }
        // Correct any instances of a double or leading/trailing commas which may have 
        // occurred when reading a model with no sources
        foundsrcs = foundsrcs.replace( /,,/g, "," );
        foundsrcs = foundsrcs.replace( /^,/, "" );
        foundsrcs = foundsrcs.replace( /,$/, "" );
        // Return the string, which can be used by the caller to set an XSICollection,
        // populate a combo box, etc.
        return foundsrcs;
}
// This is an handy function to have around if you're going to create an action 
// source or clip on a parameter that is in a nested model (ie., not directly 
// under the Scene_Root) because AddClip will force a mapping template if your 
// parameter is not relative.
function GetRelativeNameForTarget( in_param )
{
        var mdlname = in_param.Model.FullName;
        if ( mdlname == "Scene_Root" ) {
                return in_param.FullName;
        } else {
                var tmp = in_param.FullName;
                var re = new RegExp( mdlname + ".", "i" );
                return tmp.replace( re, "" );
        }
}
// Helper functions to create & instantiate sources
function CreateShapeAction( in_model )
{
        var obj = in_model.AddGeometry( "Cone", "MeshSurface" );
        var target = obj + ".pnt[0,2,5,8,11,14,17,20,23]"
        SetSelFilter( "Vertex" );
        SelectGeometryComponents( target );
        Translate( null, 0, -2, 0, siAbsolute, siPivot, siObj, siY, null, 
                null, null, null, null, null, null, null, null, 1 );
        var clip = SaveShapeKey( target, null, null, 1, null, null, null, 
                null, siShapeObjectReferenceMode );
        Translate( null, 0, -1, 0, siAbsolute, siPivot, siObj, siY, null, 
                null, null, null, null, null, null, null, null, 1 );
        SaveShapeKey( target, null, null, 36, null, null, null, null, 
                siShapeObjectReferenceMode );
        Translate( null, 0, 0, 0, siAbsolute, siPivot, siObj, siY, null, 
                null, null, null, null, null, null, null, null, 1 );
        SaveShapeKey( target, null, null, 67, null, null, null, null, 
                siShapeObjectReferenceMode );
}
function CreateAudioSource( in_model )
{
        var mixmaster = ( in_model.HasMixer() ) ? in_model.Mixer : in_model.AddMixer();
        var aud_track = AddTrack( in_model, mixmaster, 2 );
        var aud_path = XSIUtils.BuildPath(
                Application.InstallationPath(siFactoryPath),
                "Data", "XSI_SAMPLES", "Audio", "Torefaction.wav"
        );
        var aud_src = ImportAudio( in_model, aud_path );
        AddAudioClip( in_model, aud_src, mixmaster, aud_track, 22 );
}
function CreateImageSource( in_model )
{
        var cube = in_model.AddGeometry( "Cube", "MeshSurface" );
        SelectObj( cube );
        ApplyShader( null, null, null, siUnspecified, siLetLocalMaterialsOverlap );
        CreateProjection( cube, siTxtSpherical, siTxtDefaultSpherical, "", "Texture_Projection", null, siRelDefault, "" );
        BlendInTextureLayers( "Image", cube, 1, false, siReplaceAndBlendInPreset, true, true, false, false);
}
function CreateModelSource()
{
        ImportModel( "S:\\Data\\XSI_SAMPLES\\Models\\Biped_Skeleton_Generated.emdl", null, true, 
                null, null, null, null );
}

# 
# This example demonstrates how to access every clip in the specified model. 
# In this case there are two clips in different models and only the top 
# model has been queried, so only the constraint action will be returned
#
def FindClipsUnderModel( in_model ) :
        # First make sure we have a mixer
        if  in_model.HasMixer()==0 :
                return ""
        mixer = in_model.Mixer
        # We will return a comma-delimited string of all sources found
        foundclips = ""
        Application.LogMessage( "\n\tSearching " + mixer.FullName + " for clips...", c.siComment );
        if mixer.Clips.Count > 0 :
                for clip in mixer.Clips :
                        Application.LogMessage( "\t" + clip.FullName + " is a " + ClassName(clip) + "/" + clip.Type, c.siComment )
                        if foundclips == "" :
                                foundclips = foundclips + clip.FullName 
                        else : 
                                foundclips = foundclips + "," + clip.FullName
        else :
                Application.LogMessage( "\tNo sources found on " + mixer.FullName, c.siComment )
        return foundclips
# Helper function to strip off model name for FullNames
def GetRelativeNameForTarget( in_param ) :
        mdlname = in_param.Model.FullName
        if  mdlname == "Scene_Root" :
                return in_param.FullName
        else :
                tmp = in_param.FullName
                return tmp.replace( mdlname + ".", "" )
# Helper function to create constraint-based action
def CreateConstraintAction( in_model ) :
        # Build Orientation Constraint to null from cylinder
        a = in_model.AddNull()
        Application.SelectObj(a)
        Application.Translate("", 5.5173674053756, 2.96222253259053, 
                -0.296222253259053, c.siRelative, c.siView, c.siObj, 
                c.siXYZ, "", "", "", "", "", "", "", "", "", 1)
        b = in_model.AddGeometry("Cylinder", "MeshSurface" )
        Application.SetUserPref( "SI3D_CONSTRAINT_COMPENSATION_MODE", 1)
        Application.ApplyCns( "Orientation", b, a, 1 )
        Application.SetUserPref( "SI3D_CONSTRAINT_COMPENSATION_MODE", 0 )
        # Relative names (needed for AddClip under a nested model)
        relB = GetRelativeNameForTarget( b )
        # Make it into an Action (constraints are always on global Kinematics)
        # Get list of parameters to mark
        params = relB + "*/.kine.global.ori.euler"
        Application.StoreAction( in_model, params, 4, 
                "StoredAnimCnsAction", 1, 1, 100, 0, 0, 1, 1 )
# Helper function to create fcurve-based action
def CreateFCurveAction( in_model ) :
        obj = in_model.AddNull()
        # Set FCurves on the null's scaling
        keys = [ 5, 1.2,  20, 1.7,  45, 2.0,  90, 2.5 ]
        obj.sclx.AddFCurve2( keys )
        keyfactor = 0.66
        posfactor = 0.54
        i=0
        while i < len(keys) :
                keys[i] = keys[i] + keyfactor
                keys[i+1] = keys[i+1] * posfactor
                i = i + 2
        obj.scly.AddFCurve2( keys )
        keyfactor = 0.27
        posfactor = 0.44
        while i < len(keys) :
                keys[i] = keys[i] - keyfactor
                keys[i+1] = keys[i+1] * posfactor
                i = i + 2
        obj.sclz.AddFCurve2( keys )
        # Get list of parameters to mark
        params = obj.sclx.FullName + "," + obj.scly.FullName + "," + obj.sclz.FullName
        # Make the FCurves into an Action
        src = Application.StoreAction( in_model, params, 2, "StoredAnimFCrvAction" )
        clip = Application.AddClip( in_model, src )
        # Add some clip effects to it
        toclip = clip.Name + ".ActionClip"
        rtn = Application.GetMappingRule( toclip, 0 )
        fromclip = rtn.Value( "From" )
        Application.SetMappingRule( toclip, fromclip, "this+5", 1 )
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#       MAIN
#
Application.NewScene( "", 0)
from win32com.client import constants as c
# Set up some animation action nested inside models (see bottom for functions)
CreateFCurveAction( Application.ActiveSceneRoot )
m1 = Application.ActiveSceneRoot.AddModel()
m1.Name = "Sunshine"
CreateConstraintAction( m1 )
# Get a collection of clips under every model
results = FindClipsUnderModel( Application.ActiveSceneRoot )
if results != "" :
        cliplist = XSIFactory.CreateActiveXObject( "XSI.Collection" )
        cliplist.AddItems( results )
# Print out list
for clip in cliplist :
        Application.LogMessage( clip.Name + " is a " + clip.Type )
# Expected results:
#
#       Searching Mixer for clips...
#       Mixer.Mixer_Anim_Track.StoredAnimFCrvAction_Clip is a Clip/mixeranimclip
#INFO : StoredAnimFCrvAction_Clip is a mixeranimclip

'
' This example demonstrates how to crawl through the Mixer to try and extract
' all the interesting pieces of data, through clips, sources, tracks, etc.
'
NewScene , false
' Set up some clips in the mixer
CreateStaticAction( ActiveSceneRoot )
CreateShapeAction( ActiveSceneRoot )
CreateAudioSource( ActiveSceneRoot )
' Traverse the mixer, finding as much info as we can
ReadMixerContents ActiveSceneRoot.Mixer
sub ReadMixerContents( in_mixer )
        LogMessage vbTab & "Reading " & in_mixer.FullName & " in ReadMixerContents()" 
        ' CLIPS
        LogMessage vbTab & vbTab & "Found " & in_mixer.Clips.Count & " clip(s)."
        ReadClipsFromContainer in_mixer 
        ' TRACKS
        LogMessage vbTab & vbTab & "Found " & in_mixer.Tracks.Count & " track(s)."
        for each trk in in_mixer.Tracks
                ' TRACKS::CLIPS
                ReadClipsFromContainer trk 
        next
        ' TRANSITIONS
        LogMessage vbTab & vbTab & "Found " & in_mixer.Transitions.Count & " transition(s)."
        for each trns in in_mixer.Transitions
                LogMessage vbTab & vbTab & vbTab & "Found the " & trns.FullName &  _
                        " transition which starts at frame " & trns.StartClip &  _
                        " and ends at frame " & trns.EndClip
        next
        ' NESTED RELATIONS
        LogMessage vbTab & vbTab & "Found " & in_mixer.NestedRelations.Count & " nested relation(s)."
        if in_mixer.NestedRelations.Count > 0 then
                ReadRelations in_mixer.NestedRelations
        end if
end sub
sub ReadClipsFromContainer( in_can )
        LogMessage vbTab & "Reading " & in_can.FullName & " in ReadClipsFromContainer()"
        for each clp in in_can.Clips
                ' MAPPEDITEMS
                if clp.Type <> siClipAudioType then
                        if TypeName(clp.MappedItems) <> "Nothing" then
                                LogMessage vbTab & vbTab & "Found " & clp.MappedItems.Count & " mapped items(s)"
                                for each mapping in clp.MappedItems
                                        LogMessage vbTab & vbTab & vbTab & mapping.FullName & ": " & ClassName(mapping)
                                        ' MAPPEDITEMS::CLIPEFFECTITEM
                                        ReadClipEffectItem mapping.ClipEffectItem 
                                next
                        end if
                end if
                ' TIMECONTROL
                if  TypeName(clp.TimeControl) <> "Nothing" then
                        LogMessage vbTab & vbTab & "Found this clip's time control: " & clp.TimeControl.FullName
                        set tc = clp.TimeControl
                        LogMessage vbTab & vbTab & vbTab & "Scaling Factor: " & tc.Scale 
                        LogMessage vbTab & vbTab & vbTab & "Start Offset: " & tc.StartOffset 
                        LogMessage vbTab & vbTab & vbTab & "First Frame: " & tc.ClipIn 
                        LogMessage vbTab & vbTab & vbTab & "Last Frame: " & tc.ClipOut 
                        LogMessage vbTab & vbTab & vbTab & "siTimeControlExtrapolationType before this clip: " _
                                & tc.ExtrapolationBeforeType & " (" & tc.ExtrapolationBeforeValue & ")" 
                        LogMessage vbTab & vbTab & vbTab & "siTimeControlExtrapolationType after this clip: " _
                                & tc.ExtrapolationAfterType & " (" & tc.ExtrapolationAfterValue & ")" 
                else
                        LogMessage vbTab & "TimeControl is not available on this clip."
                end if
                ' SOURCE
                LogMessage vbTab & vbTab & "Found this clip's source: " & clp.Source.FullName & "(" & ClassName(clp.Source) & ")"
                ' EFFECT
                if TypeName(clp.Effect) <> "Nothing" then
                        LogMessage vbTab & vbTab & "Found this clip's effect: " & clp.Effect.FullName 
                        ReadClipEffect clp.Effect 
                end if
                ' RELATIONS
                LogMessage vbTab & vbTab & "Found " & clp.Relations.Count & " relation(s) on this clip." 
                ReadRelations clp.Relations 
        next
end sub
sub ReadClipEffect( in_clpeff )
        LogMessage vbTab & "Reading " & in_clpeff.FullName & " in ReadClipEffect()"
        ' CLIPEFFECTITEMS
        LogMessage vbTab & vbTab & "Found " & in_clpeff.Items.Count & " clip effect item(s)" 
        for each thing in in_clpeff.Items
                ReadClipEffectItem thing
        next
        ' VARIABLES
        LogMessage vbTab & vbTab & "Found " & in_clpeff.Variables.Count & " variables(s)" 
        if  in_clpeff.Variables.Count > 0 then
                for each var in in_clpeff.Variables
                        LogMessage vbTab & vbTab & vbTab & "Found this variable on the clip effect: " & var.FullName
                next
        end if
        ' TIMEREFERENCE
        if TypeName(in_clpeff.TimeReference) <> "Nothing" then
                dim trparams
                if in_clpeff.TimeReference then
                        trparams = "spans over extrapolation (siExtrapolatedClip)"
                else 
                        trparams = "repeats itself over time (siOriginalClip)"
                end if
                LogMessage vbTab & vbTab & "Found this time reference indicating that this clip effect item: " & trparams 
        else
                LogMessage vbTab & vbTab & "No time reference found on the clip effect" 
        end if
        ' POSEEFFECT
        if TypeName(in_clpeff.PoseEffect) <> "Nothing" then
                LogMessage vbTab & vbTab & "Found this pose effect property on the clip effect: " _
                        & in_clpeff.PoseEffect.FullName & " containing " _
                        & in_clpeff.PoseEffect.Parameters.Count & " parameters...."
                set peparams = in_clpeff.PoseEffect.Parameters
                for each p in peparams
                        LogMessage vbTab & vbTab & vbTab & "Found this parameter on the pose effect property: " & p.FullName 
                next
        else
                LogMessage vbTab & vbTab & "No pose effect property found on the clip effect" 
        end if
        ' ISACTIVE
        LogMessage vbTab & vbTab & "Is this clip effect active? -- " & in_clpeff.IsActive 
        ' ISPOSEEFFECTACTIVE
        LogMessage vbTab & vbTab & "Is the pose effect on this clip effect active? -- " & in_clpeff.IsPoseEffectActive 
end sub
sub ReadRelations( in_rels )
        LogMessage vbTab & "Reading " & in_rels.GetAsText() & " in ReadRelations()" 
        for each rel in in_rels
                LogMessage vbTab & vbTab & vbTab & "Master: " & in_rels(r).MasterClip
                LogMessage vbTab & vbTab & vbTab & "Slave: " & in_rels(r).SlaveClip
        next
end sub
sub ReadClipEffectItem( in_clpeffitm )
        LogMessage vbTab & vbTab & "Reading " & in_clpeffitm.FullName & " in ReadClipEffectItem()" 
        LogMessage vbTab & vbTab & vbTab & "Value of " & in_clpeffitm.Parameter.FullName & " = " & in_clpeffitm.Parameter.Value 
        dim str 
        if in_clpeffitm.Expression = "" then
                str = "(no expression)" 
        else
                str = in_clpeffitm.Expression
        end if
        LogMessage vbTab & vbTab & vbTab & "Value of ClipEffectItem.Expression = " & str 
end sub
' Expected Results:
'INFO :         Reading Mixer in ReadMixerContents()
'INFO :                 Found 2 clip(s).
'INFO :         Reading Mixer in ReadClipsFromContainer()
'INFO :                 Found 1 mapped items(s)
'INFO :                         MappedItem: MappedItem
'INFO :                 Reading  in ReadClipEffectItem()
'INFO :                         Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0
'INFO :                         Value of ClipEffectItem.Expression = (no expression)
'INFO :                 Found this clip's time control: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.timectrl
'INFO :                         Scaling Factor: 1
'INFO :                         Start Offset: 1
'INFO :                         First Frame: 1
'INFO :                         Last Frame: 100
'INFO :                         siTimeControlExtrapolationType before this clip: 0 (0)
'INFO :                         siTimeControlExtrapolationType after this clip: 0 (0)
'INFO :                 Found this clip's source: Mixer.Shape_ClusterClip_source(ActionSource)
'INFO :                 Found this clip's effect: 
'INFO :         Reading  in ReadClipEffect()
'INFO :                 Found 1 clip effect item(s)
'INFO :                 Reading  in ReadClipEffectItem()
'INFO :                         Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0
'INFO :                         Value of ClipEffectItem.Expression = (no expression)
'INFO :                 Found 0 variables(s)
'INFO :                 Found this time reference indicating that this clip effect item: spans over extrapolation (siExtrapolatedClip)
'INFO :                 Found this pose effect property on the clip effect: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState containing 9 parameters....
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclx
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.scly
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclz
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posx
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posy
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posz
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.orix
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriy
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriz
'INFO :                 Is this clip effect active? -- True
'INFO :                 Is the pose effect on this clip effect active? -- False
'INFO :                 Found 0 relation(s) on this clip.
'INFO :         Reading  in ReadRelations()
'INFO :                 Found this clip's time control: Mixer.Mixer_Audio_Track.Clip.timectrl
'INFO :                         Scaling Factor: 1
'INFO :                         Start Offset: 22
'INFO :                         First Frame: 1
'INFO :                         Last Frame: 6.87475789516606
'INFO :                         siTimeControlExtrapolationType before this clip: 0 (0)
'INFO :                         siTimeControlExtrapolationType after this clip: 0 (0)
'INFO :                 Found this clip's source: Sources.NEWALERT_WAV(Source)
'INFO :                 Found 0 relation(s) on this clip.
'INFO :         Reading  in ReadRelations()
'INFO :                 Found 2 track(s).
'INFO :         Reading Mixer.Mixer_Shape_Track in ReadClipsFromContainer()
'INFO :                 Found 1 mapped items(s)
'INFO :                         MappedItem: MappedItem
'INFO :                 Reading  in ReadClipEffectItem()
'INFO :                         Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0
'INFO :                         Value of ClipEffectItem.Expression = (no expression)
'INFO :                 Found this clip's time control: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.timectrl
'INFO :                         Scaling Factor: 1
'INFO :                         Start Offset: 1
'INFO :                         First Frame: 1
'INFO :                         Last Frame: 100
'INFO :                         siTimeControlExtrapolationType before this clip: 0 (0)
'INFO :                         siTimeControlExtrapolationType after this clip: 0 (0)
'INFO :                 Found this clip's source: Mixer.Shape_ClusterClip_source(ActionSource)
'INFO :                 Found this clip's effect: 
'INFO :         Reading  in ReadClipEffect()
'INFO :                 Found 1 clip effect item(s)
'INFO :                 Reading  in ReadClipEffectItem()
'INFO :                         Value of Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.param = 0
'INFO :                         Value of ClipEffectItem.Expression = (no expression)
'INFO :                 Found 0 variables(s)
'INFO :                 Found this time reference indicating that this clip effect item: spans over extrapolation (siExtrapolatedClip)
'INFO :                 Found this pose effect property on the clip effect: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState containing 9 parameters....
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclx
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.scly
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.sclz
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posx
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posy
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.posz
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.orix
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriy
'INFO :                         Found this parameter on the pose effect property: Mixer.Mixer_Shape_Track.Shape_ClusterClip.actionclip.StaticKineState.oriz
'INFO :                 Is this clip effect active? -- True
'INFO :                 Is the pose effect on this clip effect active? -- False
'INFO :                 Found 0 relation(s) on this clip.
'INFO :         Reading  in ReadRelations()
'INFO :         Reading Mixer.Mixer_Audio_Track in ReadClipsFromContainer()
'INFO :                 Found this clip's time control: Mixer.Mixer_Audio_Track.Clip.timectrl
'INFO :                         Scaling Factor: 1
'INFO :                         Start Offset: 22
'INFO :                         First Frame: 1
'INFO :                         Last Frame: 6.87475789516606
'INFO :                         siTimeControlExtrapolationType before this clip: 0 (0)
'INFO :                         siTimeControlExtrapolationType after this clip: 0 (0)
'INFO :                 Found this clip's source: Sources.NEWALERT_WAV(Source)
'INFO :                 Found 0 relation(s) on this clip.
'INFO :         Reading  in ReadRelations()
'INFO :                 Found 0 transition(s).
'INFO :                 Found 0 nested relation(s).
' Helper routines to create the sources
sub CreateStaticAction( in_model )
        set obj = in_model.AddGeometry( "Cone", "MeshSurface" )
        targets = Array( obj.rotx.FullName, obj.roty.FullName, obj.rotz.FullName )
        statics = Array( 22.5, 90, 45 )
        actives = Array( true, true, true )
        in_model.AddActionSource "StoredAnimStaticAction", targets, statics, actives 
end sub
sub CreateShapeAction( in_model )
        set obj = in_model.AddGeometry( "Cone", "MeshSurface" )
        target = obj & ".pnt[0,2,5,8,11,14,17,20,23]"
        SetSelFilter "Vertex" 
        SelectGeometryComponents target 
        Translate , 0, -2, 0, siAbsolute, siPivot, siObj, siY, , , , , , , , , , 1 
        set clip = SaveShapeKey( target, , , 1, , , , , siShapeObjectReferenceMode )
        target = clip.Source.SourceItems(0).Target
        Translate , 0, -1, 0, siAbsolute, siPivot, siObj, siY, , , , , , , , , , 1 
        SaveShapeKey target, , , 36, , , , , siShapeObjectReferenceMode 
        Translate , 0, 0, 0, siAbsolute, siPivot, siObj, siY, , , , , , , , , , 1 
        SaveShapeKey target, , , 67, , , , , siShapeObjectReferenceMode 
end sub
sub CreateAudioSource( in_model )
        if in_model.HasMixer() then
                set mixmaster = in_model.Mixer 
        else
                set mixmaster = in_model.AddMixer()
        end if
        set aud_track = AddTrack( in_model, mixmaster, 2 )
        set aud_src = ImportAudio( in_model, "C:\Program Files\Messenger\NEWALERT.WAV" )
        AddAudioClip in_model, aud_src, mixmaster, aud_track, 22 
end sub